home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / CDROM / ACDPlay / Install-ACDPlay < prev    next >
Text File  |  1997-06-23  |  15KB  |  523 lines
  1. ;===========================================================================;
  2. ;
  3. ;                    Installer script for ACDPlay V1.48b
  4. ;                            by Martin Kresse
  5. ;                            and Marc Altmann
  6. ;
  7. ;                   $VER: Install_ACDPlay 1.48b (23.06.97)
  8. ;
  9. ;===========================================================================;
  10.  
  11.  
  12. (set #welcome
  13.     (cat "Welcome to the installation of\nACDPlay V1.48b\n"
  14.          "a CDDA player for SCSI/ATAPI CD-ROM drives.\n"
  15.          "We have worked pretty hard to accomplish this "
  16.          "release of ACDPlay, so please fulfill one of the "
  17.          "conditions of using ACDPlay and send us an email.")
  18. )
  19.  
  20. (set #installmode-prompt
  21.     (cat "Do you want to do a completely new installation or do "
  22.          "you want to update to an earlier version of ACDPlay?")
  23. )
  24.  
  25. (set #installmode-help
  26.     (cat "By doing a completely new installation configurations "
  27.          "and preferences of a supposed earlier installation "
  28.          "will be overwritten.\n"
  29.          "By updating to an earlier version of ACDPlay the configuration "
  30.          "file will be converted to the new ACDPlay 1.5 config file format. "
  31.          "Tooltypes will be kept as well.")
  32. )
  33.  
  34. (set #acdpdir_install-prompt
  35.     (cat "In which directory do you want to install ACDPlay?\n"
  36.          "(a drawer named \"ACDPlay\" will be created)")
  37. )
  38. (set #acdpdir_install-help
  39.     (cat "You may now choose a directory in which an own drawer "
  40.          "drawer named \"ACDPlay\" will be created. ACDPlay will be "
  41.          "copied to the resulting path with all files belonging to it.\n\n"
  42.          @askdir-help)
  43. )
  44.  
  45. (set #acdpdir_update-prompt
  46.     (cat "Please select the directory where the ACDPlay executable "
  47.          "is installed.\n"
  48.          "ACDPlay will then be updated.")
  49. )
  50. (set #acdpdir_update-help
  51.     (cat "Because ACDPlay doesn't set up any assigns during its installation "
  52.          "you have to specify the drawer that contains the ACDPlay executable.\n"
  53.          "Normally the drawer's name is \"ACDPlay\", too.\n\n"
  54.          @askdir-help)
  55. )
  56.  
  57. (set #components-prompt
  58.     (cat "Which of ACDPlay's components do you want to install?")
  59. )
  60. (set #components-help
  61.     (cat "You may now select the individual components of the ACDPlay "
  62.          "package you want to install. All items should be selected for "
  63.          "a normal installation.\n\n"
  64.          "Main program:\nACDPlay executable, of course this is absolutely "
  65.          "necessary.\n\n"
  66.          "Documentation:\nSome of ACDPlay's functions (e.g. A-B repeat) "
  67.          "are not absolutely self-explaining. That's why there are AmigaGuide "
  68.          "docs in various languages.\n\n"
  69.          "Catalogs:\nACDPlay itself is multilingual. Just install your preferred "
  70.          "language catalog.\n\n"
  71.          "ARexx examples:\nNot useful for everybody, but for those who are using "
  72.          "ARexx we included some tiny example scripts for ACDPlay's huge ARexx port.\n\n"
  73.          "Title file examples:\nPretty useless, just as an example.\n\n"
  74.          "PickCDID:\nTool to cope with these large CDID-Collections. Pick out "
  75.          "only CDID files for CDs you really own.\n\n"
  76.          @askoptions-help)
  77. )
  78. (set #components-main "Main program")
  79. (set #components-docs "Documentation")
  80. (set #components-cats "Catalogs")
  81. (set #components-rexx "ARexx examples")
  82. (set #components-cdid "Title file examples")
  83. (set #components-pick "PickCDID V1.0")
  84.  
  85. (set #abort "No component chosen: installation aborted")
  86.  
  87. (set #magicwb-prompt "What icon set do you want to install?")
  88. (set #magicwb-help
  89.     (cat "If you have Martin Huttenloher's MagicWB package installed "
  90.          "on your machine, you should use ACDPlay's MagicWB icons too. "
  91.          "If it's the first time you hear the term MagicWB, it's a good "
  92.          "idea to install the standard icons to ensure a 'clear sight'.")
  93. )
  94.  
  95. (set #catalogs-prompt
  96.     (cat "For what language do you want to install the language catalogs?")
  97. )
  98. (set #catalogs-help
  99.     (cat "You may now choose the language in which ACDPlay "
  100.          "should appear. If your own language isn't supported, please contact one "
  101.          "of the programmers\n\n"
  102.          "Attention: In order to use the different languages ACDPlay needs "
  103.          "locale.library installed which is part of the operating system since "
  104.          "Workbench 2.1. Under older versions of the OS ACDPlay will always"
  105.          "appear in English.\n\n"
  106.          @askchoice-help)
  107. )
  108.  
  109. (set #catalogs-default 4)
  110.  
  111. (set #guides-prompt
  112.     (cat "For what language do you want to install the AmigaGuide documentation?")
  113. )
  114. (set #guides-help
  115.     (cat "You may now choose the language in which the AmigaGuide documentation "
  116.          "should appear. If your own language isn't supported, please contact one "
  117.          "of the programmers\n\n"
  118.          @askchoice-help)
  119. )
  120.  
  121. (set #guides-default 3)
  122.  
  123. (set #drivemode-prompt "With what kind of CD-ROM drive do you want to use ACDPlay?")
  124. (set #drivemode-help
  125.     (cat "You can use ACDPlay with both SCSI and ATAPI CD-ROM drives. "
  126.          "However, when using an ATAPI drive 'cd.device' is needed.\n\n"
  127.          @askbool-help)
  128. )
  129.  
  130. (set #getdev-prompt "Examining your SCSI device...")
  131.  
  132. (set #devicename-prompt "Enter the name of your SCSI device:")
  133. (set #devicename-help
  134.     (cat "In order to send commands to your CD-ROM drive ACDPlay must know "
  135.          "the name of your SCSI device driver. Because this can be different "
  136.          "on each system because of many different configurations it's hard "
  137.          "to determine the right one with 100% safity. "
  138.          "Please make sure with the help of your SCSI host adapters' manual "
  139.          "whether this 'guessed' name is the right one.\n\n"
  140.          @askstring-help)
  141. )
  142.  
  143. (set #getunit-prompt "Looking for CD-ROM drive...")
  144.  
  145. (set #deviceunit-prompt
  146.     (cat "Enter the unit of your CD-ROM drive:")
  147. )
  148. (set #deviceunit-help
  149.     (cat "Since a SCSI adapter is able to control up to 7 devices, "
  150.          "each one must be indentified by a number (0-7). "
  151.          "If ACDPlay doesn't work with the proposed number, you may "
  152.          "just try every number until it does.\n\n"
  153.          @asknumber-help)
  154. )
  155.  
  156. (set #convert-prompt "Converting config file...")
  157. (set #convert-help
  158.     (cat "Configuration files saved by ACDPlay 1.0 or 1.1 cannot be read by "
  159.          "ACDPlay 1.48b. In case you want to keep your old window positions etc. "
  160.          "they have to be converted.")
  161. )
  162.  
  163. (set #delcfg1-prompt
  164.     (cat "Found old ACDPlay 1.0/1.1 configuration file.\nDeleting "
  165.          "old config file from ENVARC:...")
  166. )
  167. (set #delcfg2-prompt
  168.     (cat "Found old ACDPlay 1.0/1.1 configuration file.\nDeleting "
  169.          "old config file from ENV:...")
  170. )
  171. (set #delcfg-help
  172.     (cat "An old ACDPlay configuration file was found. Because ACDPlay 1.48b "
  173.          "cannot cope with the old file format, not deleting it would produce "
  174.          "an error message.\nTo convert old config files into new ones, "
  175.          "start this script again or run 'c/convert <filename>'.")
  176. )
  177.  
  178. (welcome #welcome)
  179.  
  180. (complete 0)
  181.  
  182. ;---------------------------------------------------------- ask user options
  183.  
  184. (set installmode
  185.     (askchoice
  186.         (prompt  #installmode-prompt)
  187.         (help    #installmode-help)
  188.         (choices "Install" "Update")
  189.         (default 0)
  190.     )
  191. )
  192.  
  193. (if (= installmode 0)
  194.     (
  195.         (set rootdestdir
  196.             (askdir
  197.                 (prompt  #acdpdir_install-prompt)
  198.                 (help    #acdpdir_install-help)
  199.                 (default "Sys:Utilities")
  200.             )
  201.         )
  202.         (set destdir
  203.             (tackon rootdestdir "ACDPlay")
  204.         )
  205.     )
  206.     (set destdir
  207.         (askdir
  208.             (prompt  #acdpdir_update-prompt)
  209.             (help    #acdpdir_update-help)
  210.             (default "Sys:Utilities/ACDPlay")
  211.         )
  212.     )
  213. )
  214.  
  215. (set @default-dest destdir)
  216.  
  217. (set components
  218.     (askoptions
  219.         (prompt #components-prompt)
  220.         (help   #components-help)
  221.         (choices #components-main
  222.                  #components-docs
  223.                  #components-cats
  224.                  #components-rexx
  225.                  #components-cdid)
  226. ;                #components-pick)
  227.         (default 63)
  228.     )
  229. )
  230.  
  231. (if (= components 0)
  232.     (exit #abort (quiet))
  233. )
  234.  
  235. (complete 10)
  236.  
  237. (if (IN components 2)
  238.     (set catalogs
  239.         (askchoice
  240.             (prompt #catalogs-prompt)
  241.             (help   #catalogs-help)
  242.             (choices "Ãeótina"
  243.                      "Català"
  244.                      "Dansk"
  245.                      "Deutsch"
  246.                      "English"
  247.                      "Français"
  248.                      "Íslenska"
  249.                      "Italiano"
  250.                      "Nederlands"
  251.                      "Norsk"
  252.                      "Polski"
  253.                      "Svenska")
  254.             (default #catalogs-default)
  255.         )
  256.     )
  257. )
  258.  
  259. (if (IN components 1)
  260.     (set guides
  261.         (askchoice
  262.             (prompt #guides-prompt)
  263.             (help #guides-help)
  264.             (choices "Català"
  265.                      "Dansk"
  266.                      "Deutsch"
  267.                      "English"
  268.                      "Français"
  269.                      "Italiano"
  270.                      "Norsk")
  271.             (default #guides-default)
  272.         )
  273.     )
  274. )
  275.  
  276. (set clanguage (select catalogs "ãeótina" "català" "dansk" "deutsch" "english" "français" "íslenska" "italiano" "nederlands" "norsk" "polski" "svenska"))
  277. (set glanguage (select guides "català" "dansk" "deutsch" "english" "français" "italiano" "norsk"))
  278.  
  279. (complete 20)
  280.  
  281. (if (= installmode 0)
  282.     (
  283.         (set magicwb
  284.             (askchoice
  285.                 (prompt #magicwb-prompt)
  286.                 (help   #magicwb-help)
  287.                 (choices "Standard (4 colours)"
  288.                          "MagicWB  (8 colours)")
  289.                 (default 0)
  290.             )
  291.         )
  292.  
  293.         ; Fragen, ob SCSI oder ATAPI. Bei ATAPI wird jetzt noch nichts weiter
  294.         ; getan.
  295.         ; 0 == SCSI
  296.  
  297.         (set drivemode
  298.             (askchoice
  299.                 (prompt #drivemode-prompt)
  300.                 (help   #drivemode-help)
  301.                 (choices "SCSI"
  302.                          "ATAPI")
  303.                 (default 0)
  304.             )
  305.         )
  306.  
  307.         ; Nur, wenn SCSI gewählt wurde
  308.         (if (= drivemode 0)
  309.             (
  310.                 (run "c/FindDevice >ENV:scsi_device" (prompt #getdev-prompt))
  311.  
  312.                 (set devicename
  313.                     (askstring
  314.                         (prompt #devicename-prompt)
  315.                         (help   #devicename-help)
  316.                         (default (getenv "scsi_device"))
  317.                     )
  318.                 )
  319.  
  320.                 (run ("c/FindCDROM >ENV:scsi_unit %s" devicename) (prompt #getunit-prompt))
  321.  
  322.                 (set deviceunit
  323.                     (asknumber
  324.                         (prompt #deviceunit-prompt)
  325.                         (help   #deviceunit-help)
  326.                         (range 0 7)
  327.                         (default (getenv "scsi_unit"))
  328.                     )
  329.                 )
  330.             )
  331.         )
  332.     )
  333. )
  334.  
  335. (complete 30)
  336.  
  337.  
  338. ;----------------------------------------- now we can start the installation
  339.  
  340. ; ggf. Verzeichnis anlegen und mit Icon versehen
  341. (if (= installmode 0)
  342.     (
  343.         (makedir destdir)
  344.             ; MagicWB- oder normales Icon installieren
  345.         (if (= magicwb 1)
  346.                 (copyfiles
  347.                 (source "ACDPlay.info")
  348.                     (dest   rootdestdir)
  349.                 (noposition)
  350.                 )
  351.                 (copyfiles
  352.                 (source  "icons/ACDPlay-Dir.info")
  353.                     (dest    rootdestdir)
  354.                 (newname "ACDPlay.info")
  355.                     (noposition)
  356.             )
  357.         )
  358.         )
  359. )
  360.  
  361. (complete 40)
  362.  
  363. ; copy and configure main program
  364. ;
  365. (if (IN components 0)
  366.     (
  367.         (copyfiles
  368.             (source "ACDPlay/ACDPlay")
  369.             (dest   destdir)
  370.             (files)
  371.         )
  372.         
  373.         ; Iconbehandlung
  374.         (if (= installmode 0)
  375.             (
  376.                 ; Icon kopieren
  377.                 (copyfiles
  378.                     (source (if #magicwb "ACDPlay/ACDPlay.info" "Icons/ACDPlay.info"))
  379.                     (dest   destdir)
  380.                 )
  381.  
  382.                 ; Device- und Unit-Tooltypes setzen, falls SCSI-Modus
  383.                 ; gewählt wurde
  384.                 (if (= drivemode 0)
  385.                     (tooltype
  386.                         (dest (tackon destdir "ACDPlay"))
  387.                         (settooltype "(DEVICE")                 ; altes TT löschen
  388.                         (settooltype "DEVICE" devicename)
  389.                         (settooltype "(UNIT")                   ; altes TT löschen
  390.                         (settooltype "UNIT" ("%ld" deviceunit ))
  391.                         (noposition)
  392.                     )
  393.                 )
  394.             )
  395.             (
  396.                 ; Tooltypes auf den 1.5er Stand bringen
  397.                 (tooltype
  398.                     (dest (tackon destdir "ACDPlay"))
  399.                     (settooltype "SEARCHSECONDS")
  400.                     (settooltype "UPDATEDELAY" "5")
  401.                     (settooltype "QUITONCLOSE" "YES")
  402.                     (noposition)
  403.                 )
  404.             )
  405.         )
  406.     )
  407. )
  408.  
  409. ; Konfigurationsfile konvertieren bzw. löschen
  410. (if installmode
  411.     (
  412.         ; Konfigurationsdateikonverter starten und neue Datei auch nach
  413.         ; ENV: kopieren
  414.         (run "c/convert ENVARC:ACDPlay.cfg"
  415.             (confirm 2)
  416.             (prompt #convert-prompt)
  417.             (help #convert-help)
  418.         )
  419.         (copyfiles
  420.             (source "ENVARC:ACDPlay.cfg")
  421.             (dest   "ENV:")
  422.         )
  423.     )
  424.     (
  425.         ; Konfigdatei löschen
  426.         (if (exists "ENVARC:ACDPlay.cfg")
  427.             (delete "ENVARC:ACDPlay.cfg"
  428.                 (confirm 2)
  429.                 (prompt #delcfg1-prompt)
  430.                 (help #delcfg-help)
  431.             )
  432.         )
  433.         (if (exists "ENV:ACDPlay.cfg")
  434.             (delete "ENV:ACDPlay.cfg"
  435.                 (confirm 2)
  436.                 (prompt #delcfg2-prompt)
  437.                 (help #delcfg-help)
  438.             )
  439.         )
  440.     )
  441. )
  442.  
  443. ; copy documentation
  444. ;
  445. (if (IN components 1)
  446.   (
  447.     (copyfiles
  448.         (source (tackon "docs" (tackon glanguage "ACDPlay.guide")))
  449.         (dest   destdir)
  450.         (infos)
  451.         (noposition)
  452.     )
  453.     (if (= magicwb 0)                        ; 4 colour icons?
  454.       (copyfiles
  455.           (source "Icons/ACDPlay.guide.info")
  456.           (dest   destdir)
  457.       )
  458.     )
  459.   )
  460. )
  461.  
  462. (complete 60)
  463.  
  464. ; copy catalogs
  465. ;
  466. (if (IN components 2)
  467.   (if (<> clanguage "english")
  468.     (
  469.       (makedir (tackon destdir "catalogs"))
  470.       (copyfiles
  471.           (source (tackon "Catalogs" (tackon clanguage "ACDPlay.catalog")))
  472.           (dest   (tackon destdir (tackon "catalogs" clanguage)))
  473.       )
  474.     )
  475.   )
  476. )
  477.  
  478. (complete 70)
  479.  
  480. ; copy arexx examples
  481. ;
  482. (if (IN components 3)
  483.     (copyfiles
  484.         (source "Arexx")
  485.         (dest   (tackon destdir "ARexx"))
  486.         (all)
  487.     )
  488. )
  489.  
  490. (complete 80)
  491.  
  492. ; copy diskfiles
  493. ;
  494. (if (IN components 4)
  495.     (copyfiles
  496.         (source "Disks")
  497.         (dest   (tackon destdir "Disks"))
  498.         (all)
  499.     )
  500. )
  501.  
  502. (complete 90)
  503.  
  504. ; copy PickCDID
  505. ;
  506. (if (IN components 5)
  507.     (copyfiles
  508.         (source "PickCDID")
  509.         (dest   (tackon destdir "PickCDID"))
  510.         (infos)
  511.         (all)
  512.     )
  513. )
  514.  
  515. ;------------------------------------------------------------------ clean up
  516.  
  517. ; kill these global variables
  518. ;
  519. (delete "ENV:scsi_device" (safe))
  520. (delete "ENV:scsi_unit" (safe))
  521.  
  522. (complete 100)
  523.